inherited frmDlgExportaDAP: TfrmDlgExportaDAP
  Left = 0
  Top = 238
  BorderStyle = bsDialog
  Caption = 'Exportar Arquivos DAP ( Declara'#231#227'o Anual de Produtor)'
  ClientHeight = 282
  ClientWidth = 632
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 632
    Height = 282
    ClientRectBottom = 282
    ClientRectRight = 632
    inherited tbsLista: TcxTabSheet
      inherited frmTreePadrao: TPanel
        Width = 632
        Height = 282
        inherited cxGroupBox1: TcxGroupBox
          Top = 231
          TabOrder = 6
          Width = 632
          inherited PB: TcxProgressBar
            Width = 432
          end
        end
        object rdTipo: TcxRadioGroup
          Left = 6
          Top = 135
          Anchors = [akLeft, akRight, akBottom]
          Caption = 'Tipo de Arquivo'
          Properties.Columns = 3
          Properties.Items = <
            item
              Caption = 'DAPCAD (Dados Gerais)'
              Value = '1'
            end
            item
              Caption = 'DAPBOV (Gado Bovino/Bufalino)'
              Value = '2'
            end
            item
              Caption = 'DAPOAN (Outros Animais)'
            end
            item
              Caption = 'DAPOPR (Outros Produtos)'
              Value = '4'
            end
            item
              Caption = 'DAPREG (Gado Registrado)'
              Tag = 5
            end
            item
              Caption = 'DAPAGR (Agricultura)'
            end
            item
              Caption = 'DAPDOC (Notas Fiscais)'
            end>
          Properties.OnChange = rdTipoPropertiesChange
          Style.LookAndFeel.NativeStyle = False
          StyleDisabled.LookAndFeel.NativeStyle = False
          StyleFocused.LookAndFeel.NativeStyle = False
          StyleHot.LookAndFeel.NativeStyle = False
          TabOrder = 5
          Height = 92
          Width = 619
        end
        object cbPropriedade: TcxDBLookupComboBox
          Left = 297
          Top = 25
          DataBinding.DataField = 'PROPRIEDADE'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsPropriedade
          TabOrder = 1
          Width = 320
        end
        object cxLabel6: TcxLabel
          Left = 297
          Top = 9
          Caption = 'Propriedade'
          Transparent = True
        end
        object cbAnoBase: TcxDBSpinEdit
          Left = 619
          Top = 25
          DataBinding.DataField = 'ANO_BASE'
          DataBinding.DataSource = dsFiltro
          Properties.MinValue = 2000.000000000000000000
          TabOrder = 2
          Width = 79
        end
        object cxLabel5: TcxLabel
          Left = 619
          Top = 9
          Caption = 'Ano Base'
          Transparent = True
        end
        object cxLabel9: TcxLabel
          Left = 8
          Top = 9
          Caption = 'Produtor'
          Transparent = True
        end
        object cbProdutor: TcxDBLookupComboBox
          Left = 8
          Top = 25
          DataBinding.DataField = 'PRODUTOR'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsProdutor
          TabOrder = 0
          Width = 287
        end
        object edtCaminho: TcxTextEdit
          Left = 8
          Top = 66
          Enabled = False
          Style.LookAndFeel.NativeStyle = False
          StyleDisabled.LookAndFeel.NativeStyle = False
          StyleFocused.LookAndFeel.NativeStyle = False
          StyleHot.LookAndFeel.NativeStyle = False
          TabOrder = 3
          Width = 545
        end
        object cxLabel1: TcxLabel
          Left = 8
          Top = 49
          Caption = 'Caminho do Arquivo'
          Style.LookAndFeel.NativeStyle = False
          StyleDisabled.LookAndFeel.NativeStyle = False
          StyleFocused.LookAndFeel.NativeStyle = False
          StyleHot.LookAndFeel.NativeStyle = False
          Transparent = True
        end
        object BtnDir: TButton
          Left = 552
          Top = 65
          Width = 23
          Height = 23
          Cursor = crHandPoint
          Caption = '...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 11
          OnClick = BtnDirClick
        end
        object cxLabel2: TcxLabel
          Left = 576
          Top = 49
          Caption = 'Dt. Gera'#231#227'o'
        end
        object edtdata: TcxDBDateEdit
          Left = 576
          Top = 66
          DataBinding.DataField = 'DATA'
          DataBinding.DataSource = dsFiltro
          TabOrder = 4
          Width = 121
        end
        object rdMotivo: TcxRadioGroup
          Left = 7
          Top = 89
          Anchors = [akLeft, akRight, akBottom]
          Caption = 'Tipo de Arquivo'
          Properties.Columns = 3
          Properties.Items = <
            item
              Caption = '030 - Revalida'#231#227'o'
              Value = '1'
            end
            item
              Caption = '043 - Retifica'#231#227'o'
              Value = '2'
            end
            item
              Caption = '051 - Baixa'
            end>
          Properties.OnChange = rdTipoPropertiesChange
          Style.LookAndFeel.NativeStyle = False
          StyleDisabled.LookAndFeel.NativeStyle = False
          StyleFocused.LookAndFeel.NativeStyle = False
          StyleHot.LookAndFeel.NativeStyle = False
          TabOrder = 13
          Height = 43
          Width = 618
        end
      end
    end
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
    DesignInfo = 13632264
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = edtCaminho
        Properties.Strings = (
          'Anchors'
          'AutoSize'
          'BeepOnEnter'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'Enabled'
          'FakeStyleController'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'ImeMode'
          'ImeName'
          'Left'
          'Name'
          'ParentColor'
          'ParentFont'
          'ParentShowHint'
          'PopupMenu'
          'Properties'
          'RepositoryItem'
          'ShowHint'
          'Style'
          'StyleDisabled'
          'StyleFocused'
          'StyleHot'
          'TabOrder'
          'TabStop'
          'Tag'
          'Text'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = rdTipo
        Properties.Strings = (
          'Align'
          'Alignment'
          'Anchors'
          'BiDiMode'
          'Caption'
          'Constraints'
          'Ctl3D'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'Enabled'
          'FakeStyleController'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'ItemIndex'
          'Left'
          'Name'
          'ParentBackground'
          'ParentBiDiMode'
          'ParentColor'
          'ParentCtl3D'
          'ParentFont'
          'ParentShowHint'
          'PopupMenu'
          'Properties'
          'RepositoryItem'
          'ShowHint'
          'Style'
          'StyleDisabled'
          'StyleFocused'
          'StyleHot'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Transparent'
          'Visible'
          'Width')
      end>
    Left = 512
    Top = 264
  end
  inherited ActionList1: TActionList
    Left = 544
    Top = 264
    inherited ActOK: TAction
      OnExecute = ActOKExecute
    end
    inherited ActCancelar: TAction
      OnExecute = ActCancelarExecute
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      'select * from pcd_exp_dapcad(:propriedade,:ano_base)')
    Left = 326
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DAPCAD"."INSC_ESTADUAL"'
    end
    object dtListPROPRIEDADE_NOME: TIBStringField
      FieldName = 'PROPRIEDADE_NOME'
      Origin = '"PCD_EXP_DAPCAD"."PROPRIEDADE_NOME"'
      Size = 50
    end
    object dtListPRODUTOR_NOME: TIBStringField
      FieldName = 'PRODUTOR_NOME'
      Origin = '"PCD_EXP_DAPCAD"."PRODUTOR_NOME"'
      Size = 50
    end
    object dtListLOGRADOURO_NOME: TIBStringField
      FieldName = 'LOGRADOURO_NOME'
      Origin = '"PCD_EXP_DAPCAD"."LOGRADOURO_NOME"'
      Size = 50
    end
    object dtListNUMERO: TIBStringField
      FieldName = 'NUMERO'
      Origin = '"PCD_EXP_DAPCAD"."NUMERO"'
    end
    object dtListCOMPLEMENTO: TIBStringField
      FieldName = 'COMPLEMENTO'
      Origin = '"PCD_EXP_DAPCAD"."COMPLEMENTO"'
      Size = 50
    end
    object dtListFONE: TIBStringField
      FieldName = 'FONE'
      Origin = '"PCD_EXP_DAPCAD"."FONE"'
    end
    object dtListBAIRRO_NOME: TIBStringField
      FieldName = 'BAIRRO_NOME'
      Origin = '"PCD_EXP_DAPCAD"."BAIRRO_NOME"'
      Size = 50
    end
    object dtListCEP: TIBStringField
      FieldName = 'CEP'
      Origin = '"PCD_EXP_DAPCAD"."CEP"'
    end
    object dtListCIDADE_NOME: TIBStringField
      FieldName = 'CIDADE_NOME'
      Origin = '"PCD_EXP_DAPCAD"."CIDADE_NOME"'
      Size = 50
    end
    object dtListUF: TIBStringField
      FieldName = 'UF'
      Origin = '"PCD_EXP_DAPCAD"."UF"'
      Size = 2
    end
    object dtListCRC: TIBStringField
      FieldName = 'CRC'
      Origin = '"PCD_EXP_DAPCAD"."CRC"'
    end
    object dtListGADO_PRECOCE: TIBStringField
      FieldName = 'GADO_PRECOCE'
      Origin = '"PCD_EXP_DAPCAD"."GADO_PRECOCE"'
      FixedChar = True
      Size = 1
    end
    object dtListGADO_REGISTRADO: TIBStringField
      FieldName = 'GADO_REGISTRADO'
      Origin = '"PCD_EXP_DAPCAD"."GADO_REGISTRADO"'
      FixedChar = True
      Size = 1
    end
    object dtListGADO_LEITEIRO: TIBStringField
      FieldName = 'GADO_LEITEIRO'
      Origin = '"PCD_EXP_DAPCAD"."GADO_LEITEIRO"'
      FixedChar = True
      Size = 1
    end
    object dtListQTDE_VACAS: TIBBCDField
      FieldName = 'QTDE_VACAS'
      Origin = '"PCD_EXP_DAPCAD"."QTDE_VACAS"'
      Precision = 18
      Size = 2
    end
    object dtListQTDE_LEITE_COMERCIALIZADO: TIBBCDField
      FieldName = 'QTDE_LEITE_COMERCIALIZADO'
      Origin = '"PCD_EXP_DAPCAD"."QTDE_LEITE_COMERCIALIZADO"'
      Precision = 18
      Size = 2
    end
    object dtListAJUSTE_MACHO: TIBBCDField
      FieldName = 'AJUSTE_MACHO'
      Origin = '"PCD_EXP_DAPCAD"."AJUSTE_MACHO"'
      Precision = 18
      Size = 2
    end
    object dtListAJUSTE_FEMEA: TIBBCDField
      FieldName = 'AJUSTE_FEMEA'
      Origin = '"PCD_EXP_DAPCAD"."AJUSTE_FEMEA"'
      Precision = 18
      Size = 2
    end
    object dtListV_ENTRADAS_BOVINOS: TIBBCDField
      FieldName = 'V_ENTRADAS_BOVINOS'
      Origin = '"PCD_EXP_DAPCAD"."V_ENTRADAS_BOVINOS"'
      Precision = 18
      Size = 2
    end
    object dtListV_SAIDAS_BOVINOS: TIBBCDField
      FieldName = 'V_SAIDAS_BOVINOS'
      Origin = '"PCD_EXP_DAPCAD"."V_SAIDAS_BOVINOS"'
      Precision = 18
      Size = 2
    end
    object dtListV_INSUMOS_BOVINOS: TIBBCDField
      FieldName = 'V_INSUMOS_BOVINOS'
      Origin = '"PCD_EXP_DAPCAD"."V_INSUMOS_BOVINOS"'
      Precision = 18
      Size = 2
    end
    object dtListV_INS_OUTROS_ANIM: TIBBCDField
      FieldName = 'V_INS_OUTROS_ANIM'
      Origin = '"PCD_EXP_DAPCAD"."V_INS_OUTROS_ANIM"'
      Precision = 18
      Size = 2
    end
    object dtListV_INSUMOS_AGRICOLA: TIBBCDField
      FieldName = 'V_INSUMOS_AGRICOLA'
      Origin = '"PCD_EXP_DAPCAD"."V_INSUMOS_AGRICOLA"'
      Precision = 18
      Size = 2
    end
    object dtListCAPACIDADE_ARMAZEN: TIBBCDField
      FieldName = 'CAPACIDADE_ARMAZEN'
      Origin = '"PCD_EXP_DAPCAD"."CAPACIDADE_ARMAZEN"'
      Precision = 18
      Size = 2
    end
  end
  inherited dsRegistro: TDataSource
    Left = 416
    Top = 264
  end
  inherited mtbFiltro: TdxMemData
    Left = 320
    Top = 264
    object mtbFiltroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
    end
    object mtbFiltroANO_BASE: TIntegerField
      FieldName = 'ANO_BASE'
    end
    object mtbFiltroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      OnChange = mtbFiltroPRODUTORChange
    end
    object mtbFiltroDATA: TDateField
      FieldName = 'DATA'
    end
  end
  inherited dsFiltro: TDataSource
    Left = 295
    Top = 264
  end
  object lstPropriedade: TIBQuery [8]
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstPropriedadeBeforeOpen
    SQL.Strings = (
      'select pp.codigo, pp.nome from propriedade pp'
      'where pp.produtor = :codigo')
    Left = 264
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PROPRIEDADE"."NOME"'
      Size = 50
    end
  end
  object dsPropriedade: TDataSource [9]
    DataSet = lstPropriedade
    Left = 264
    Top = 264
  end
  object dsProdutor: TDataSource [10]
    DataSet = lstProdutores
    Left = 232
    Top = 264
  end
  object lstProdutores: TIBQuery [11]
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p'
      'where p.produtor = '#39'S'#39' and p.ativo = '#39'S'#39)
    Left = 232
    Top = 232
    object lstProdutoresCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutoresNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  inherited lstParametro: TIBQuery
    Left = 296
    Top = 234
  end
  object DIR: TOpenDialog
    DefaultExt = 'txt'
    Filter = '*.txt'
    Left = 352
    Top = 8
  end
  object dtListDAPBOV: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select  INSC_ESTADUAL ,'
      '        ORDEM_DAP_PEC,'
      '        sum(INICIAL) INICIAL,'
      '        sum(E_NAC) E_NAC,'
      '        sum(E_INTERNA_INT )E_INTERNA_INT,'
      '        sum(E_INTERNA_EST )E_INTERNA_EST ,'
      '        sum(E_EXT_EXP ) E_EXT_EXP,'
      '        sum(E_TRF ) E_TRF,'
      '        sum(E_ARR_PRC ) E_ARR_PRC,'
      '        sum(E_HER_DOA ) E_HER_DOA,'
      '        sum(E_LEILAO ) E_LEILAO,'
      '        sum(E_ERA ) E_ERA,'
      '        sum(S_MORTE ) S_MORTE,'
      '        sum(S_INTERNA_EST ) S_INTERNA_EST,'
      '        sum(S_INTERNA_INT ) S_INTERNA_INT,'
      '        sum(S_EXT_EXP ) S_EXT_EXP,'
      '        sum(S_TRF ) S_TRF,'
      '        sum(S_ARR_PRC ) S_ARR_PRC,'
      '        sum(S_HER_DOA ) S_HER_DOA,'
      '        sum(S_LEILAO ) S_LEILAO,'
      '        sum(S_ERA ) S_ERA,'
      '        sum(FINAL ) FINAL'
      '      from pcd_exp_dapBOV(:propriedade,:ano_base)'
      '      group by INSC_ESTADUAL ,'
      '        ORDEM_DAP_PEC')
    Left = 358
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDAPBOVINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DAPBOV"."INSC_ESTADUAL"'
    end
    object dtListDAPBOVORDEM_DAP_PEC: TIntegerField
      FieldName = 'ORDEM_DAP_PEC'
      Origin = '"PCD_EXP_DAPBOV"."ORDEM_DAP_PEC"'
    end
    object dtListDAPBOVINICIAL: TIBBCDField
      FieldName = 'INICIAL'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_NAC: TIBBCDField
      FieldName = 'E_NAC'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_INTERNA_INT: TIBBCDField
      FieldName = 'E_INTERNA_INT'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_INTERNA_EST: TIBBCDField
      FieldName = 'E_INTERNA_EST'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_EXT_EXP: TIBBCDField
      FieldName = 'E_EXT_EXP'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_TRF: TIBBCDField
      FieldName = 'E_TRF'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_ARR_PRC: TIBBCDField
      FieldName = 'E_ARR_PRC'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_HER_DOA: TIBBCDField
      FieldName = 'E_HER_DOA'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_LEILAO: TIBBCDField
      FieldName = 'E_LEILAO'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVE_ERA: TIBBCDField
      FieldName = 'E_ERA'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_MORTE: TIBBCDField
      FieldName = 'S_MORTE'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_INTERNA_EST: TIBBCDField
      FieldName = 'S_INTERNA_EST'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_INTERNA_INT: TIBBCDField
      FieldName = 'S_INTERNA_INT'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_EXT_EXP: TIBBCDField
      FieldName = 'S_EXT_EXP'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_TRF: TIBBCDField
      FieldName = 'S_TRF'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_ARR_PRC: TIBBCDField
      FieldName = 'S_ARR_PRC'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_HER_DOA: TIBBCDField
      FieldName = 'S_HER_DOA'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_LEILAO: TIBBCDField
      FieldName = 'S_LEILAO'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVS_ERA: TIBBCDField
      FieldName = 'S_ERA'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
    object dtListDAPBOVFINAL: TIBBCDField
      FieldName = 'FINAL'
      ProviderFlags = []
      Precision = 18
      Size = 4
    end
  end
  object dtListDAPOAN: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from pcd_exp_dapOAN(:propriedade,:ano_base)')
    Left = 390
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDAPOANINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DAPOAN"."INSC_ESTADUAL"'
    end
    object dtListDAPOANDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"PCD_EXP_DAPOAN"."DESCRICAO"'
      Size = 100
    end
    object dtListDAPOANINICIAL: TIBBCDField
      FieldName = 'INICIAL'
      Origin = '"PCD_EXP_DAPOAN"."INICIAL"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOANE_NAC: TIBBCDField
      FieldName = 'E_NAC'
      Origin = '"PCD_EXP_DAPOAN"."E_NAC"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOANE_ENTRADAS: TIBBCDField
      FieldName = 'E_ENTRADAS'
      Origin = '"PCD_EXP_DAPOAN"."E_ENTRADAS"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOANE_ENTRADAS_VALOR: TIBBCDField
      FieldName = 'E_ENTRADAS_VALOR'
      Origin = '"PCD_EXP_DAPOAN"."E_ENTRADAS_VALOR"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOANE_SAIDAS: TIBBCDField
      FieldName = 'E_SAIDAS'
      Origin = '"PCD_EXP_DAPOAN"."E_SAIDAS"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOANE_SAIDAS_VALOR: TIBBCDField
      FieldName = 'E_SAIDAS_VALOR'
      Origin = '"PCD_EXP_DAPOAN"."E_SAIDAS_VALOR"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOANS_MORTE: TIBBCDField
      FieldName = 'S_MORTE'
      Origin = '"PCD_EXP_DAPOAN"."S_MORTE"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOANPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PCD_EXP_DAPOAN"."PRODUTO"'
    end
    object dtListDAPOANPRODUTO_NOME: TIBStringField
      FieldName = 'PRODUTO_NOME'
      Origin = '"PCD_EXP_DAPOAN"."PRODUTO_NOME"'
      Size = 50
    end
  end
  object dtListDAPOPR: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from pcd_exp_dapOPR(:propriedade,:ano_base)')
    Left = 422
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDAPOPRINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DAPOPR"."INSC_ESTADUAL"'
    end
    object dtListDAPOPRDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"PCD_EXP_DAPOPR"."DESCRICAO"'
      Size = 100
    end
    object dtListDAPOPRE_SAIDAS_VALOR: TIBBCDField
      FieldName = 'E_SAIDAS_VALOR'
      Origin = '"PCD_EXP_DAPOPR"."E_SAIDAS_VALOR"'
      Precision = 18
      Size = 4
    end
    object dtListDAPOPRPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PCD_EXP_DAPOPR"."PRODUTO"'
    end
    object dtListDAPOPRPRODUTO_NOME: TIBStringField
      FieldName = 'PRODUTO_NOME'
      Origin = '"PCD_EXP_DAPOPR"."PRODUTO_NOME"'
      Size = 50
    end
  end
  object dtListDAPreg: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from pcd_exp_dapreg(:propriedade,:ano_base)')
    Left = 454
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDAPregINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DAPREG"."INSC_ESTADUAL"'
    end
    object dtListDAPregDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"PCD_EXP_DAPREG"."DESCRICAO"'
      Size = 100
    end
    object dtListDAPregQTDE: TIBBCDField
      FieldName = 'QTDE'
      Origin = '"PCD_EXP_DAPREG"."QTDE"'
      Precision = 18
      Size = 4
    end
    object dtListDAPregPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PCD_EXP_DAPREG"."PRODUTO"'
    end
    object dtListDAPregPRODUTO_NOME: TIBStringField
      FieldName = 'PRODUTO_NOME'
      Origin = '"PCD_EXP_DAPREG"."PRODUTO_NOME"'
      Size = 50
    end
  end
  object dtListDAPAGR: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from pcd_lista_dap(:propriedade,:ano_base)'
      'order by produto')
    Left = 486
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDAPAGRPRODUTO: TIBStringField
      FieldName = 'PRODUTO'
      Origin = '"PCD_LISTA_DAP"."PRODUTO"'
      Size = 50
    end
    object dtListDAPAGRPRODUTOR: TIBStringField
      FieldName = 'PRODUTOR'
      Origin = '"PCD_LISTA_DAP"."PRODUTOR"'
      Size = 50
    end
    object dtListDAPAGRPROPRIEDADE_NOME: TIBStringField
      FieldName = 'PROPRIEDADE_NOME'
      Origin = '"PCD_LISTA_DAP"."PROPRIEDADE_NOME"'
      Size = 50
    end
    object dtListDAPAGRINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_LISTA_DAP"."INSC_ESTADUAL"'
      Size = 50
    end
    object dtListDAPAGRDAP_ANO_BASE: TIntegerField
      FieldName = 'DAP_ANO_BASE'
      Origin = '"PCD_LISTA_DAP"."DAP_ANO_BASE"'
    end
    object dtListDAPAGRPRD_CODIGO: TIntegerField
      FieldName = 'PRD_CODIGO'
      Origin = '"PCD_LISTA_DAP"."PRD_CODIGO"'
    end
    object dtListDAPAGRQTDE_ENTRADA: TIBBCDField
      FieldName = 'QTDE_ENTRADA'
      Origin = '"PCD_LISTA_DAP"."QTDE_ENTRADA"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRQTDE_SAIDA: TIBBCDField
      FieldName = 'QTDE_SAIDA'
      Origin = '"PCD_LISTA_DAP"."QTDE_SAIDA"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRTOTAL_ENT: TIBBCDField
      FieldName = 'TOTAL_ENT'
      Origin = '"PCD_LISTA_DAP"."TOTAL_ENT"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRTOTAL_SAIDA: TIBBCDField
      FieldName = 'TOTAL_SAIDA'
      Origin = '"PCD_LISTA_DAP"."TOTAL_SAIDA"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRAREA_1: TIBBCDField
      FieldName = 'AREA_1'
      Origin = '"PCD_LISTA_DAP"."AREA_1"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRAREA_2: TIBBCDField
      FieldName = 'AREA_2'
      Origin = '"PCD_LISTA_DAP"."AREA_2"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGREST_INICIAL: TIBBCDField
      FieldName = 'EST_INICIAL'
      Origin = '"PCD_LISTA_DAP"."EST_INICIAL"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRSAFRA_1: TIBBCDField
      FieldName = 'SAFRA_1'
      Origin = '"PCD_LISTA_DAP"."SAFRA_1"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRSAFRA_2: TIBBCDField
      FieldName = 'SAFRA_2'
      Origin = '"PCD_LISTA_DAP"."SAFRA_2"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRPERDA_CONS: TIBBCDField
      FieldName = 'PERDA_CONS'
      Origin = '"PCD_LISTA_DAP"."PERDA_CONS"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRDEPOSITO_ENT: TIBBCDField
      FieldName = 'DEPOSITO_ENT'
      Origin = '"PCD_LISTA_DAP"."DEPOSITO_ENT"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRDEPOSITO_SAID: TIBBCDField
      FieldName = 'DEPOSITO_SAID'
      Origin = '"PCD_LISTA_DAP"."DEPOSITO_SAID"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRSALDO_QTDE: TIBBCDField
      FieldName = 'SALDO_QTDE'
      Origin = '"PCD_LISTA_DAP"."SALDO_QTDE"'
      Precision = 18
      Size = 4
    end
    object dtListDAPAGRSALDO_VALOR: TIBBCDField
      FieldName = 'SALDO_VALOR'
      Origin = '"PCD_LISTA_DAP"."SALDO_VALOR"'
      Precision = 18
      Size = 4
    end
  end
  object dtListDAPDOC: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from PCD_EXP_DAPDOC(:propriedade,:ano_base)'
      'order by produto')
    Left = 518
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'propriedade'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano_base'
        ParamType = ptUnknown
      end>
    object dtListDAPDOCINSC_ESTADUAL: TIBStringField
      FieldName = 'INSC_ESTADUAL'
      Origin = '"PCD_EXP_DAPDOC"."INSC_ESTADUAL"'
    end
    object dtListDAPDOCDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"PCD_EXP_DAPDOC"."DESCRICAO"'
      Size = 100
    end
    object dtListDAPDOCQTDE: TIBBCDField
      FieldName = 'QTDE'
      Origin = '"PCD_EXP_DAPDOC"."QTDE"'
      Precision = 18
      Size = 4
    end
    object dtListDAPDOCTOTAL: TIBBCDField
      FieldName = 'TOTAL'
      Origin = '"PCD_EXP_DAPDOC"."TOTAL"'
      Precision = 18
      Size = 4
    end
    object dtListDAPDOCPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PCD_EXP_DAPDOC"."PRODUTO"'
    end
    object dtListDAPDOCPRODUTO_NOME: TIBStringField
      FieldName = 'PRODUTO_NOME'
      Origin = '"PCD_EXP_DAPDOC"."PRODUTO_NOME"'
      Size = 50
    end
    object dtListDAPDOCNFP: TIntegerField
      FieldName = 'NFP'
      Origin = '"PCD_EXP_DAPDOC"."NFP"'
    end
    object dtListDAPDOCDT_EMISSAO: TDateField
      FieldName = 'DT_EMISSAO'
      Origin = '"PCD_EXP_DAPDOC"."DT_EMISSAO"'
    end
    object dtListDAPDOCOP_CODIGO_TBL_DAP: TIBStringField
      FieldName = 'OP_CODIGO_TBL_DAP'
      Origin = '"PCD_EXP_DAPDOC"."OP_CODIGO_TBL_DAP"'
      FixedChar = True
      Size = 2
    end
    object dtListDAPDOCCPF: TIBStringField
      FieldName = 'CPF'
      Origin = '"PCD_EXP_DAPDOC"."CPF"'
    end
    object dtListDAPDOCGR_CODIGO_TBL_DAP: TIBStringField
      FieldName = 'GR_CODIGO_TBL_DAP'
      Origin = '"PCD_EXP_DAPDOC"."GR_CODIGO_TBL_DAP"'
      FixedChar = True
      Size = 2
    end
    object dtListDAPDOCOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
      Origin = '"PCD_EXP_DAPDOC"."OPERACAO"'
    end
    object dtListDAPDOCOPERACAO_NOME: TIBStringField
      FieldName = 'OPERACAO_NOME'
      Origin = '"PCD_EXP_DAPDOC"."OPERACAO_NOME"'
      Size = 50
    end
    object dtListDAPDOCGRUPO: TIntegerField
      FieldName = 'GRUPO'
      Origin = '"PCD_EXP_DAPDOC"."GRUPO"'
    end
    object dtListDAPDOCGRUPO_NOME: TIBStringField
      FieldName = 'GRUPO_NOME'
      Origin = '"PCD_EXP_DAPDOC"."GRUPO_NOME"'
      Size = 50
    end
    object dtListDAPDOCUF: TIBStringField
      FieldName = 'UF'
      Origin = '"PCD_EXP_DAPDOC"."UF"'
      FixedChar = True
      Size = 2
    end
  end
end
